البدء مع 


ADO.NET 


أن ما دعاني لبدء هذا الشرح هو التطور المستمر للبرمجة وصعوبة أيجاد شرح وافي لعملية 
الاتصال ومحاكاة قاعدة 


بيانات من حفظ واسترجاع وتحديث وبحث .. ألخ . فكل ما نجده هو الأمثله والمشاريع الشخصية 
الجاهزة وهي مفيدة 
ولكن لا يكون أثرها كالدرس المشروح فأغلبيتنا يفتقد لأقل معلومه وأسرعها وأن تكون سهلة الفهم 
لكي يستوعبها 
المبتدء قبل المحترف كحالي عندما بدءت البرمجه والاحتراف كلمة لتمييز قدرات الشخص على 
الابتكار والتفكير 
والأبداع وهي في النهاية تفاوت في المستويات ولكنها ليست بدرجة الكمال لأن الكمال لله وحده 


سبحانه وتعاللى 
فالبرمجة بأعتقادي الشخصي بحر شاسع لا حدوده له لتنوعها .. فربما المبتدء يجد فيها ما يتوقف 
عنده المحترف 
وهذا هو لب الموضوع 


التعاون بأقل معلومة هو الاحتراف بحد ذاته * 


]1[ڊرnliج Visual Studio .NET‏ 
[2]معرفة مسبقة بلغة الفيجول بيسك دوت نت والتعامل مع نماذجه وأداوته 
[3]قاعدة بيانات (وهنا سنبدأً مع الأكسس ثم سنحولها إلى قاعدة سيرفر وسنرى الاختلاف( 
[4] عليك بكتابة الشيفرات الموجودة في الدرس لكي تخطىء وتعرف أين أخطأت 


ملاحظة . اتمنى من الاخوة الاعضاء عند أدراجكم لمشاركاتكم أن تقتصر على الأسئلة والأستفسارات بعكس المدح والشكر .. 
فكل مانريده هو الأفادة والأستفادة وعدم أكثار الصفحات بدون فائدة .. ومن يريد أبدء أعجابه أو أنتقاده للموضع أن يراسلني 


برسالة على الخاص. 


نبذه عن A۸D0.N E7‏ 
هي مجموعة من الفئات مشمولة في مجال الأسماء هة 50 .٠5ر8‏ غرضها الوصول إلى مصادر 
البيانات Sources‏ 2 0والتي تمثل بيانات محفوظة تحت أنظمة قواعد بيانات متعددة الآنواع 
مما يعني قدرتك على الوصول إلى أي قاعدة بيانات مهما كانت الشركة المنتجة لها 
). تركي العسيري ( 


ADO.NET and A۸AD0۷0O الأختلافات الجوهربة بين‎ 


ADO **‏ ** 
1-مصمة للعمل 2 بيئة متصلة بأستمرار مع قاعدة البيانات 


2-يستخدم الكائن 8٠٠0۲۵596٤‏ للأحتفاظ بمجموعة بيانات واحدة 


3-تحتوي على أنواع من المؤشرات ١٣ں‏ المستخدمة لأغراض مختلفة ولكل موؤشر أمكانياته 
الخاصة 
4-تخزن البيانات في هيئتها الثنائية مما يصعب أرسالها عبر جدران الحماية . كما أنها غير مفيدة 
للأنظمة التي لا تدعم0 ۸5 


5-تستهلك قدراً من موارد النظام بسبب اتصالها الدائم بقاعدة البيانات أثناء المعالجة 


** ADO.NET ** 

-مصممة من الأساس للعمل في بيئة غير متصلة) ويمكنها العمل باتصال دائم مع قاعدة البيانات( 
2-يستخدم الكائن ٥ه‏ للأحتفاظ بعدة مجموعات من البيانات 
3-لا تستخدم المؤشرات لأنها تعمل في بيئة غير متصلة. 
4-تخزن البيانات في هيئة 01× العالمية . وهذه الهيئة مصممة لكي ترسل عبر جدران الحماية 
وعبر الشبكات دون مشاكل كما يمكن لأي تطبيق قراءة البيانات بهيئة 01× بسهولة. 

5-تعمل كنظام بيانات منفصل عن قاعدة البيانات فهي لا تتصل بقاعدة البيانات إلا عند الضرورة 

وبالتالي لن تستهلك مورد النظام الإ عند الضرورة 


والأختلافان الأخيران رقم 5 - 4 هما جوهرة الاختلاف وأهمها 


معlnرڀۀADO.NET7‏ 
والمقصود هنا الخصائص المزوده والمساعدة في عملية الاتصال لقراءة وتكييف البيانات وهي 
-[1]مجموعة البيانات† Dat aS‏ 
وهو الكائن المكافىء للكائن 8٠٥١0٥0١۲۵56۲‏ ولكن مع الكثير من المزايا والتحسينات حيث يستطيع 
تخزين أكثر من جدول أو نتيجة أستعلام في نفس الوقت حيث يمثل كل واحد من هذه الجداول كائناً 


منفصلاً عن الآخر 


-]2[مnجaو‏ عة lبlنlٽ Data Adapter‏ 
يمثل الجسر الذي يربط بين ٤٥5ه)ه‏ وقاعدة البيانات ويدعم أوامر - Select - Update‏ 
ete - |!nsert‏ ا( وبالتالي بإمكانه القيام بعمليات مختلفة على البيانتا كما أنه المسؤول عن 


تحميل كائن ٤٥5ه)‏ ه0 بالبيانات 


-]3[مجnو‏ عۀ lئبيlنlٽت Data Reader‏ 
يستخدم هذا الكائن لقراءة البيانات فقط ويمكنه قراءة كميات ضخمه منها تلك التي لا يمكن تخزينها 
في الذاكرة موفتا 
-]4[مجnو‏ عؤÃ‏ llبlıنlٽ Data Relation‏ 


يستخدم هذا الكائن لتمثيل العلاقات بين الجداول في قاعدة البياناتN١|0ل‏ 


-]5[مجمو عة llبlنlٽ Connection‏ 
يعمل هذا الكائن بصورة مشابهة للكائن ٣‏ "٨ه‏ في ۸50 وهو يمكننا من إنشاء اتصال 


مع قاعدة البيانات 
-[6]مجمو عة البياناتل "2" °0° 


يسمح هذا الكائن لكائن هعامج ك۸ هه بتطبيق الأوامر على قاعدة البيانات ويمكنه أن يتضمن 


اربعة من هذه الأوامر 


لأضافة أستفسار أو سوال حول الموضوع من هنا 


الدرس التالي في عملية الاتصال بقاعدة البيانات وكيف يتم ذلك 
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ا کی ا کا ا کی کا کا کی کی کی کی کی کی کی ا 


الدرس الثانى : عملية الاإتصال بالقاعدة 


تتطلب عملية الوصول إلى البيانات من خلال ۸0.٤‏ على نوع مصدر البيانات الذي تود الاتصال معه بالتصريح 
عن مزود البيانات لو فرضنا أننا نستخدم عملية الاتصال بالكود 
کود 
Dim cn As New OleDbConnection (connString)‏ 
cn. Open ()‏ 
Dim rs As New OleDbDataAdapter ("SELECT * FROM [ Table]", cn)‏ 
Dim rs As New DataSet ()‏ 


rS.Fill (rs, "Table'") 


وسنأتي على شرح ما سبق بتفصيل حيث سأذكر اولا طريقة الاتصال بواسطة المعالج لأن هدفي الاساسي توضيح 
المسألة بأكبر قدر من المعلومات كما يلي 


الخطوةالأولى : أنشاء كائن امام ةل A‏ هه بواسطة المعالج في2003 - 2002 
حيث ستقوم بتحديد الكائن ءام ةل 202۸ءا ثم قم برسمه على الفورم اما في 2005 تم تحديد هذا الكائن من 


Data ---> Add New Data Sourcenئl‎ 


e 
y pata VB.NET 20 


hk Painter 

DataSet 
| EL OlepbDataûdapter 
9 ıleDbZonnectian 
i DlspbZarmmand 
18 aqlDat aAdapker 
و‎ aqlConnectian 

e aql Lorman d 


Data Hn Hn 


xııq [D0 | 


FE ire 0 


j Show Data Sources Shift +Alk+D 
| Eel Previelmy Dalaã,,, 


| Add Hew Data Source... 


الخطوة الثانية : تحديد المزود ثم تحديد مصدر البيانات الذي تود الاتصال معه عن طريق انشاء اتصال جديد ١٥W‏ 


Connection 


Welcome to the Data Adapter 
Configuration Wiz ard 


This wizard helps You specify the connection and 
database commands that the data adapter ses to 
select records and handle changes to the database, 
You need ko prowide connection infor mation and make 
decisions about how You want the database 
caormmands stored and executed. four ability to 
camplekte this wizard may depend on the permissions 
wal haye in the database, 


Taka Aii agahî TG grTTiguir iH 2 


eme car Duta cmon u BF. VB.NET 2003 


Fhe aka: mHaphey El mima ke Fee irirmgî hk aferin Eo aid 


arid kate data. ار‎ Hull 


Tones rawi i kf stl aa rma terik ii Serve Ephrem 
Bort F teg greg Fa arek kira kel, 


Wfaich lala cammealion sroulkl Lhe dala alapier ane? 


£ Free Gorath. 


Data Source Configuration Wizard 


Choose a Data Souırce Type 


Yhere will the application qet data From? 


Web Service mı bject 


-Sbjerts For Your application, This option creates ã 


Yehich dala torneo rak] raa appltetian ıê bo çare] be lhe daf akat? 


= Î Heme Camedia. n Hn 


VB.NET 2005 


a armes n 


ثم نختار .. تبويب الموفر لتحديد المزود 


الموثر الاتصال | خبارات منندمة | اتل | 


حدد ہا بلي للأئصال ببيانات ٣ع‏ ع 5 ا 5: 
. حدد اسماآللملشم أو ثم بادخالك: 
dg |‏ 
. دحل معلومات سحل الدخول إلى الملشم: 
٦‏ استخدام آبان ۲ل ٭سدل ما البٹگامل 
0 اییشخت ام ایم لشم پکن د و كلبك المرور الخاحة بك 


أ كلمةمرورفارغه | السماج بحفظ كلم المرور 
۳ آ# لحديد تاعدة الببانات علس الجلشم: 


HH 


١‏ لرقال ملف اعد ببالاك كاسم تاعدة ببالاك: 


n 


ا صصص 
E VB.NET 200‏ 
HnHin‏ د 


موائی الغاء الأمر | نعلیبات 


حيث سنحدد المزود الخاص بالاكسس وبامكانك اختيار المزود الخاص ب اهS؟S‏ 


الموفر | الالصال | خباراك ملقدمة | الكل | 


حدد البيانات اللي لريد الأاتصال بجا Hn Hn‏ 


مو فر [موغري] 08 11۴ 

Medial-atalagalB ULE DE Pravider 
MedıaLatalagMerge ADE ULE DE PraoYIider 
M ediaLatalagq'e bDBE ULE DB Provider 
Microsoft Jet 3.51 ULE DE Provider 
Microsoft Jet 4.0 DLE DB FraoYIder 


Microsoft ULE DE Provider For Data Mining SErYIcEz 
Microsoft DLE DB Provider for DTS Packages 
Microsoft ULE DB Provider for lndeming Service 
Microsoft ULE DE PraYider for Internat Publishirg 
Microsoft DLE DB Provider for Microsoft Search 
Microsoft DLE DB ProYider for UDBL Dryers 
Microsoft ULE DB Provider for ULAP S5 ErYices 
Microsoft ILE DB Provider for lap GerYIzeEz B8. 
Microsoft DLE DE Provider for UraclEe 

Microsoft ULE DB Provider far Uutlook Search 
Microsoft OLE DB Provider for SAL Seryer 

Microsoft ULE DE Simple Provider‏ چ 


VB.NET 2003 


في2005 


Choose Your Data Connection 


which di Change Data Source 


Lala SOUFCE: 


0 
MicrosofE Access Database File Lescription 

Microsoft OODEC Gata SOUrTE LISE Ehis selection Eo connect Eo ã 
Microsoft SAL Serwer Microsoft Access database File using 
Microsoft SQL Server Database File the nati¥e Jet provider through the 
Oracle Database NET Framework Data Provider For 
zokher r LE CE, 


Data proyider: VBINLI 2009 


NET Framework Data Provider For Ol ™ 7 NHN 


Always use this selection ancel| 


ثم قم بالضغط علی زر اختبار الاتصالہ ٣٥5 ٥٥۸٣٥٤٤٥‏ لأختبار الاتصال 


الموفر الاتصال | خيارات منفدمة | الكل | 


خډ ڼب با بلي للاتصال بییاسات 33ع٘حعت: 
حدد اسم اعد ببائات آي م باإدخالة: 


LÎ [BorrsApplication1 windowsApplication 1 *DBHnH n.mdb 
أدخل بعلو هات سحل الدخول إلى فاعدة البيانات:‎ ۳ 
ثلا٣ اسيم الخد م:‎ 


A72003 


MicrosOollL bith Lit: 


n 
رر نجحح اختباز الاتصال.‎ 


صواكة. 


) اختبار الاتصال | 


Data Source onî iguralion Wizard 


Add ConnecLlion 


Enter information to connect to the selected daka source or 
click "Zhange" to choose a different data source andj or 
provider, 


Lata sûUrCE!: HnHn 
Microsoft Access Database File TOLE DE} LhangE... 


Catabase File name: 


Fi Yisual Studio ZODOS1Proje cts winda w5 Appi Brose, 


Log on to the database 


a 
mS رل‎ Test connection slycceeded, 


۳ 23E 
VB.NET 20 


Microsoft Visual SIUMIiG 


LIser name: 
+ L_oanneckion sin 


Password: 


Choose Your Data Connection 
The data adapter wil execute queries using this connection to load 
and update daka, 


whoose Frorn the list of data connections currently in Serwer Explorer or add ã naw 
cannectiaon if tha one You want is nok listed, 


Yhich data connection should the data adapter use? 


lAZCESS,F: Wisual Studio ZOD Proje cts indo wsApplicationl IW * PEY Copinerckti ON 1 


FB. NET 200 
HnHn 


Lance x Back | Next x= | 


VB.NET 2003 
HnHn 


Choose Your Data Connection 


Which data connection should ¥our application use to connect to the database? 
ALLESS Fi Yisual SEudig ZOOS Projects Windows A pplication 1 Windows Applicakiar ™ Hew Lonnection, 1 


r n mı وص‎ I 


The connection you selected ees a local data fle that is nok in the current project, Would wou lke to copy the fle te 
i yo project and modify the connection? 


IF yaoi copy te data Fle Eo your peojerkt, E wil be copied bo me project's output directory each time yola run the 
Bpplicakbion, Press F1 for information of controling E behariûr. 


1 ED 


| _onnecktiaon string 


ProYi der= MicrasofE, Jet, LEDB,4.,0;Data Source=[DataDirectory | (DEHnHn, rndb 


الخطوة الثالثة: كتابة الاستعلام 5Q]‏ الذي يحدد البيانات كما سيأتي 


Choose a Query Type i BA VET 2 M0 


The daka adapter uses SL statements or stored procedures, 


Haw should the data adapter access the database? 


DEeREF-a E lee SOL Sta LeeTIS 
# Use SQL statements fhe Select stshemenk wil be used to reste Hhe rsert, plete, and = 
Delete skits, = 
Specify a Select statement bo laa 


and Delete statements EO saê Ze in your OL Select statement or Ucn the Quyery Biher ko graphically dcp the qy. 


What data shoal he dala adapker kad Iria he dataset?‏ سم 


Specify a Select statement, and E 
select, insert, update, and delete 


٠ | 


~haoase an existing stor ed proced 
delete), 


Remo ed Spline... mey ler... | 


Hnfin 


Add Table 


| Tables | views | VB.NET 2003 


_olurmns j‏ اک 1 + ي 


2 HAnHnT: 


ھ4 


|(BELELT HnHnTab,* 
FROM HnHnıTab 


أما في ٠٠٠٠١‏ تتم العملية تلقائيً 


Save the Connection Strinq to the Application Configuration File 


Storing connection strings in ¥our application fof 


cannecktion string in the application canfigurati 
Choose Your Database Objects 
Do ¥ou want to saye the connection sti 


fes, save the connection ã5 
ich Baiabasee alerts doe you agrê r yc dabet? 


DPBHnHnConnertionstring 2 
2 تا و‎ nish 
VB.NET 2005 E ue 
AI a 
Hnfin ا‎ 
| e 
CER TÊ 
TERT HDS 


r. 
a Pri Eg 


< PrEYİDUS | E Next] | Finish | ` Tanrel 


Generate the SOL statements 
The Select statement will be used to create the Insert, Update, and 
Delete statements, 


Type in Yor SQL Select statement or se the Query Builder Eo graphically design the query, 


Yfhat data should the data adapter load into the dataset? 


S2ELEL_T د‎ 
HinHnTab,* 

FERT 
HnHnTab 


VB.NET 2005 
HnHii 


ا 


ûAdYanced Options... | Query Builder... | 


وأخيرا سيظهر إطار أخير يبين فيه العمليات التي تمت وتوليد أوامر الأضافة والتحديث والتعديل والحذف ونفس الشي 
مع2005 


Yey Wizard Results 


Rayi the list of tasks the wizard has performed, lick Finish to 
cornpleke or Back to make changes, 


The data adapter "OleBbD ataAdapkter 1" was configured successfully, 


Details: FBNET 2 MM 


¥ Eaneraked SELELT statement, Hn Hy 
¥ rıanerated Eabla mappings. 

enerated INSERT statement.‏ ب 

eanerated IPÛDATE statement.‏ ك 


¥ enerated CDELETE statement, 


Toa apply these settings to Your adapter, click Finish. 


Tanrel | < Bark. | | | Finish 


بعد الانتهاء من المعالج سيظهر لك الكائنان التاليين حيث أن المهالج قام بأنشاء كائن الاتصال بالأضافة إلى كائن 
OleDbDataAdapter1‏ 


Hankin VB.NET 200} 


i SleDbDataAd apkter1 i ûleGbEonnertiaon 1 


RNN 
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ا ا کی کا کا کا کی کا کا کی کی کی کی کی کی کی ا ا ا 


الأتصال بقاعدة البيانات عن طريق الأكراد هام" €١‏ 


وهذه الطريقة هي ما أفضلها دائما .. وستجد المتعة في ذلك من خلال تتبعك معنا لهذه الدروس 
وسوف يدور الكلام هنا حول الاتصال بقاعدة البيانات من نوع اكسس ءءهءء۸ وذلك لأن الاغلبية 
يتعامل معها فلنبدأ . 8 
قبل التعامل مع مصدر بيانات» عليك فتح اتصال معها وفي هذا القسم سنعرض الاساليب المتعددة 
للاتصال بمصادر البيانات. 


تعريف كائن الاتصال 
كود 


Dim Con As New OleDbConnection () 


حيث OleDb Connecti 0٥۸‏ : مخصصةۂ للأتصال بقواعد البیانات من نوع OLE DB .NET‏ 
Data Provider‏ ما اذا كانت قواعد البيانات ja‏ نوع SQL Server .NET Data‏ 
Providerفسیکون‏ تعریف الاتصال من نوع S| ٤٥۸٣٥٤٤٥۸‏ و بھذا الشکل: 

کود 


Dim Con As New SqlConnection () 


نص الاتصال بالقاعدة 
سوف نقوم بتعريف متغير من نوع نص ووضع مسار الاتصال بقاعدة البيانات بداخله بهذه الطريقة 
کود 
Dim ConnString As String =‏ 
"Provider=Microsoft.Jet. OLEDB.4.0;Data Source‏ 


=c: \HnHnDB .mdb'"'" 


وهذ الكود يجب أسناده إلى مزود البيانات الذي يميل له كما سبق ذكره وهنا سيتم اسناده إلى 


Connection‏ eD|ا0وستكون‏ الشفرة بهذه الطريقة 


کود 
Dim con As OleDbConnection‏ 
con = New OleDbConnection (ConnString)‏ 
أو يمكنك كتابة التعريف بهذا الشكل ايضا 
کود 


Dim con As New OleDbConnection (ConnString) 


ملاحظة : بدلا من كتابة نص الاتصال كاملا في كل مرة تنوي انشاء كائن اتصال جديد قم بوضع نص 
الاتصال في متغير عام على مستوى المشروع 
والقصد ان المتغير يختصر عليك كتابة شفرة الاتصال بهذه الطريقة في كل مرة تريد بها انشاء كائن 
للأتصال بالقاعدة لتحديث بياناتها. 
كود 
Dim con As New OleDbConnection‏ 
"Provider=Microsoft.Jet. OLEDB.4.0;Data Source‏ 


=c: \HnHnDB .mdb" 


ولجعل المسار لمجلد القاعدة معروف تلقائيا كما في ۷/86 متلا والقصد هنا استخدام App.Path‏ 
فقد تغييرت كلمة المسار التلقائي في الفيجول نت إِئى Path‏ ication.StartupاAppl‏ وھناك 
أشكال عدة في استخراج المسارات في الفيجول نت سنذكرها لاحقاً أنشالله . وبهذه الكلمة ستكون 

شفرة الاتصال بهذه الطريقة 

کود 

Dim ConnString As String = 
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & 


Application. StartupPath & "\HnHnDB .mdb'" 


ملاحظة : يجب أن تكون قاعدة البيانات 1۸۳1١08."‏ في مجلد المشروع 8۸ يمكنك وضع 
القاعدة في اي مكان تريد ولكن الآن نحن نتكلم حوJ‏ خlصڍۂ Application.Startup Path‏ 


والتي تعرف مسار هذا المجلد من ضمن المشروع 


أما بالنسبة لشفرة الاتصال بقاعدة بيانات من نوع سيرفر ٣م۷٣‏ مS‏ ا84 وستكون بهذا الشكل 
وهي لا تختلف عن الاكسس سوى في عملية الاتصال 
حيث أنك ستتعامل مع ال وومءء۸ كملف لقاعدة بيانات اما 5Q1 Seve‏ فأنك تتعامل مع 
محرك فواعد بيانات 
كود 


Dim SQLCon As New SqlConnection () 
SQLCon.ConnectionString = "Data 
Source=DEV4ARABS SERVER" | 

& "User ID= HnHn ; Password=  ";admin 


ةدعاقلاeg‎ "ni tia1 Cata10g= " 


الآن سنأتى فتح وإغلاق الاتصال بالقاعدة 


بعد أن اسندنا نص الاتصال بالقاعدة للمتغير وأ٣)S؟ممهع‏ يمكننا الآن البدء بفتح الاتصال 
واغلاقه عن طريق هذه الجمل ... 
كود 
con . Open )(‏ لفتح الاتصال 


con . 105e )(‏ اغلاق الاتصال 


ولمعرفة حالة الاتصال ان كنا متصلين بالقاعدة أم لا سنستخدم الحالة ه8 التابعة لكائن الاتصال 
والتي سينتج عنها عند الاستفسار ما يلي أن كان الاتصال في الاوضاع التالية : 
Open‏ [1]الاتصال مفتوح 
se4dا2]C]الاتصال‏ مغلق 
3]Connecting]جاري‏ فتح الاتصال 
Executing‏ ]4]یتم تنفیذ امر استعلام على الاتصال 
44ء۴ [5]جاري الحصول على بيانات من سجلات مصدر البيانات 


وستأتي شفرة التأكد من حالة الاتصال بهذه الطريقة 


کود 
If (Con.State And ConnectionState. Open) <> 0 Then‏ 


HnHn‏ ' التعرف الى حالة الاتصال 


") ×0 8و s‏ تم فتح الاتصال بنجاح ("' 
Else‏ 
") ×0 8و Msتم‏ اغلاق الاتصال (" 


End If 


ويمكنك تغيير الوضع ١٠هم0‏ إلى إي من الأوضاع السابقة 


سنأتی الأن علی ذکر کائن الأوامر ل٣2 _CoN‏ 
ولتذكير فقط بما سبق ذكره عن الكائن 
اقتباس 
-[6]مجمو عة البياناتل٣ه" C٥۳١‏ يسمح هذا الكائن لكائن مامه ل۸ھ بتطبيق الأوامر 
على قاعدة البيانات 


بعد تكوين الاتصال مع قاعد ة البيانات» ستأتي هذه الخطوة وهي ارسال جمل الاستعلام وهنا بأمكانك 
حصر البيانات التي تريد استعراضها كما تشاء أن كانت لديك فكرة في جمل الاستعلام اSQ؟S‏ 
وستكون هذه الشفرة مع شفرة الاتصال وسيكون تعريفا بهذه الطريقة 
کود 


Dim cmd As New OleDbCommand ( ) 


أما أذا كانت قواعد البيانات من نوع SQL Server .NET Data Provider‏ فسیکون تعریف 
الاتصال من نوع Conn c٤٥‏ اSq‏ و بھذا الشکل: 


کود 
Dimcmd As As New SqlCommand ()‏ 
وستكون شفرة الربط مع الاتصال بهذه الطريقة 
کود 


4١‏ ' شفرة الاتصال بالقاعدة بشكل تام 


Dim Con As New OleDbConnection (ConnString) 


Dim cmd As New OleDbCommand ( ) 
Con . Open () 


cmd. Connection = Con 


چ 


تابع لعملية الاتصال) فتح الجداول والتعامل معها(_ 


سنحتاج هنا إلى عنصرين رئيسيين لتكملة عملية التعامل مع البيانات وهما ... 
OleDbConnection‏ - ]1[ 
DataSet‏ - ]2[ 


وهذا هو تعريفهما مع التعاريف السابقة الموضوعه في حدث ۴٥۲1‏ ssج|ا٥‏ icاPub‏ 
وستأتي بشكل هذا 
کود 
Dim Con As New OleDb.OleDbConnection () REM HnHn‏ 
"تعريف كائن الاتصال" 
1m cmd As New OleDbCommand () REM HnHn : "‏ دتعریف کائن أمر 
لتمرير الاستعلام ثم الاتصال" 


1m Dp As O1leDb.OleDbDataAdapter REM HnHn : "‏ تعریف کائن 


تدفق البيانات بمعنى المصدر أو المزود" 


1m rs As New DataSet () REM HnHn‏ تعریف کائن التعامل مع البیانات 


في الذاكرة" 
1m CconnStrn9g As String REM HnHn‏ 5 'تعریف متغیر لتخزین مسار 


۲ 


القاعدة" 


وهكذا نكون كونا المجموعة الأساسية للتعامل مع البيانات بشكل تام وسنبداً الآن بالاتصال بأحدى 


جداول القاعدة 


]ملاحظة [: 
ان کائن الاوامر ٣٣2٣d‏ ٥٤ط‏ ٥ا٥۵‏ لا یصل إلی مصدر البیانات بشکل مباشر وانما یعتمد على 
كائن الاتصال والذي بدوره يصل إلى مصدر بيانات كما في هذه الشفرة والمذكورة لديك في المثال 
المرفق سابقا . 
کود 


con. Open () 


cmd. Connection = con 


con.Close () 


وللأستفادة من كائن الأمر علينا بناء جمل ة أستعلام مع مراعاة نوعها أن كانت جملة استعلامية 
أن الجمل الاستعلامية هي التي لا تؤثر على سجلات قاعدة البيانات وانما تقوم بقراءة محتوياتها 
ونستخدم لھا أمر آ٥٤ SEL‏ 
أما الجمل التنفيذيةهي تلك الجمل التي تحدث تغييرا في سجلات جداول القاعدة بشكل التالي 
UPDATE ‘INSERT INTO < yİ.DELETE‏ 
وغالبا ما يستخدم مع الجمل التنفيذية أمر 0Q u ery‏ مcutم×xع()‏ وذلك كنوع من الحصر لعدد 
السجلات التي تأثرت بالعملية ومثال ذلك العملية التالية .. 
کود 


Dim SQL As String = "UPDATE Emp SET Slary = 5000 
WHERE NoEmp = 10001 " 
Dim cmd As New OleDbCommand (SQL, con) 


cmd. ExecuteNonQuery () 


الأن سنأتي على عملية الاتصال بجدول البيانات وسحبها منه بشكل التالي 


- [1]سنقوم بتعريف متغيير لوضع جملة الاستعلام بداخله كما يلي 


کود 
Dim SQL As String = "SELECT * FROM HnHnEmp "‏ 
- [2]سنقوم بوضع الاستعلام مع الاتصال في محوJ‏ اllبيlنlت OleDbData Adapter‏ 
کود 
Dp = New OleDb.OleDbDataAdapter (SQL, Con‏ 
- [3]سنقوم بنقل البيانات لتعامل معها من دون اتصال بوضعها في 0a٥‏ 
کود 


Dp.Fi1ill (rs, "HnHnEmp") 


- [4]أخيرا سنغلق القاعدة لتعامل معها من دون اتصال وستصبح الشفرة بشكل نهائيا بشكل التالي 


کود 


con. Connection String = ConnString REM HnHn : "‏ لاتصال 
بمسار القاعدة" 


con . Open )) REM HnHn‏ فتح الاتصال 


"SELECT * FROM HnHnEmp" REM HnHn : "‏ = اوضع 
Dp = New OleDb.OleDbDataAdapter (SQL, Con) REM HnHn‏ 
"تدفق البيانات مع الاتصال في المتحول" 

rs, "HnHNnEmp") REM HnHn : "‏ ) ۴11 . p(التعامل‏ مع سجلات الجدول في 
الدات سبيت" 


Con.Close () 


لم يتبق الآن سوى أظهار البيانات في الحقول المخصصة لها وستأتي الطريقة بشكل التالي 
كود 
TextBoxl1.Text = rs.Tables ("HnHnEmp" ) .Rows (0) . Item (0)‏ 


٥×٤ :‏ .80×>1×٠۲الحقل‏ الذي سيرتبط مع الحقل في الجدول 
"HnHn Emp”). :‏ )esاab‏ ".اسم الجدول المدرج منه اسم الحقل المرتبط بالتیکس بوکس 
0W 5)0(. :‏ Rتمثل‏ الصف الخاص بالحقل المرتبط وعند تغيير الرقم الذي بداخله يتم الانتقال لسجل 
التالي والعكس 
: .(m۳)0هtاتمثل‏ عنصر الوصول إلى الفئات المحضونة من الكائن الرئيسي ٤٥S؟هtج5‏ 
وهي خاصية افتراضية للكائن سه8 هه لذا يمكنك تجاهلها ان اردت . 


وهكذا مع بقية الحقول بالشكل التالي وفق المثال المرفق.... 
کود 
EM HnHn‏ Rاظهار‏ بيانات الجدولفي الحقول المخصصة 
TextBoxl1.Text = rs.Tables ("HnHnEmp" ) .Rows (0) . Item (0)‏ 


TextBox2. Text 


rs.Tables ("HnHnEmp") .Rows (0) .Item (1) 
TextBox3.Text = rs.Tables ("HnHnEmp" ) .Rows (0O0) .Item (2) 


TextBox4.Text = rs.Tables ("HnHnEmp" ) .Rows (0) .Item (3) 


rs.Tables ("HnHnEmp") .Rows (0) .Item (4) 


TextBox5. Text 


TextBox6.Text = rs.Tables ("HnHnEmp'" ) .Rows (0) . Item (5) 


rs.Tables ("HnHnEmp") .Rows (0) . Item (6) 


عملية التنقل بين السجلات 


في بيئة النت اختلف الأمر واصبحت عملية التنقل بهذا الشكل للسجل التالي 


كود 


Position += 1 


کود 
Position = =‏ 
کود 
Position = 0‏ 
کود 


Pos1t1on = 


Count = 1 


.BindingContext (rs. Tables ("HnHnEmp")) . 


وللسجل السابق 


.BindingContext (rs. Tables ("HnHnEmp")). 


والسجل الأول سيكون بهذا الشكل 


.BindingContext (rs. Tables ("HnHnEmp")). 


والسجل الأخير سيكون بهذا الشكل 


.BindingContext (rs. Tables ("HnHnEmp")) . 


.BindingContext (rs. Tables ("HnHnEmp")). 


وهذا بشكل عام ولكن في مثالنا سيتم عمل التنقل بين السجلات بالطريقة التالية 


TextBox/7. Text 


Me 


Me 


Me 


Me 


Me 


- [1]سنقوم بوضع متغيير على مستوى الفوم وسيكون من نوع رقم لتخزين قيمة او رقم السجل 


بداخله كما يلي 


Dim Rec As Integer 


- [2]سنقوم بعمل أجراء بأسم 
ec04‏ iewR/وسيحوي‏ السجلات المرتبطة بالحقول وستكون قيمة R٠ W5)0(‏ هي المتغيير 
6٤٥‏ الذي قمنا بتعريفه للسجلات بشكل هذا 


Rows (Rec) 


وسيكون الأجراء بشكل هذا 


Private Sub ViewRecord () 
اظهار بيانات الجدولفي الحقول المخصصة‎ REM HnHn 


TextBoxl1l. Text = 


rs.Tables ("HnHnEmp" ) .Rows (Rec) . Item (0) 
TextBox2. Text = 
rs. Tables ("HnHnEmp") .Rows (Rec) . Item (1) 
TextBox3. Text = 
rs.Tables ("HnHnEmp") .Rows (Rec) . Item (2) 
TextBox4. Text = 
rs.Tables ("HnHnEmp" ) .Rows (Rec) .Item (3) 
TextBoxŠ. Text = 
rs.Tables ("HnHnEmp") .Rows (Rec) . Item (4) 
TextBox6. Text = 
rs.Tables ("HnHnEmp") .Rows (Rec) .Item (5) 
TextBox7. Text = 
rs.Tables ("HnHnEmp" ) .Rows (Rec) . Item (6) 


'HnHn : Total Record 


Label9.Text = Rec & Space(2) & "OF" & Space (2) & 
rs.Tables ("HnHnEmp" ) .Rows.Count 
End Sub 


- [3]سنقوم الآن بتكوين عملية التنقل للسجلات بشكل التالي 
السجل التالي 


Private Sub ButtonNavNext Click (ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 


ButtonNavNext. Cl1ck 


REM HnHn : Next 
Rec = Rec + 1 
Call ViewRecord () 


End Sub 


السجل السابق 


Private Sub ButtonNavPrevious_ Click (ByVal sender As 


System.Object, ByVal e As System.EventArgs) Handles 


ButtonNavPrevious.Cl1ck 


REM HnHn : Previous 
Rec = Rec - 1 
Call ViewRecord () 


End Sub 


السجل الأول 


Private Sub ButtonNavFirst Click (ByVal sender As 


System.Object, ByVal e As System.EventArgs) Handles 


ButtonNavFirst.Cl1ck 


REM HnHn : First 
Rec = 0 
Call ViewRecord () 


End Sub 


السجل الأخير 


Private Sub ButtonNavLast Click (ByVal sender As 


System.Object, ByVal e As System.EventArgs) Handles 


ButtonNavLast. Cl1ck 

REM HnHn : Last 

Rec = rs.Tables ("HnHnEmp") .Rows.Count - 1 
Call ViewRecord () 

End Sub 


ولتنقل بأكثر أمان سنضع بعض الشروط لتحقق من السجل أن كان في الأول أو في الأخير كما يلي : 
الانتقال لسجل التالي 


Private Sub ButtonNavNext Click (ByVal sender As 


System.Object, ByVal e As System.EventArgs) Handles 


ButtonNavNext. Cl1ck 


REM HnHn : Next 


Rec = Rec + 1 


م1.84 ' التحقق من المتغيير اذا كان اكبر من مجموع عدد السجلات الكلي واعادة تخزين اخر 


04 ر 


قيمة 

If Rec > rs.Tables ("HnHnEmp") .Rows.Count - 1 Then 
"( 5ل توجد سجلات للأنتقال إليها‎ g8 0× )" 

Rec = rs.Tables ("HnHnEmp") .Rows.Count ¬ 1 

Exit Sub 

Else 

Call ViewRecord () 


End If 


End Sub 


الانتقال لسجل السابق 
کود 
Private Sub ButtonNavPrevious_Click (ByVal sender As‏ 
System.Object, ByVal e As System.EventArgs) Handles‏ 


ButtonNavPrevious.Cl1ck 


REM HnHn : Previous 

Rec = Rec - 1 

18١‏ ' التحقق من المتغيير اذا كان اقل من الصفر واعادة تخزين اخر قيمة 
If Rec < 0 Then‏ 

") ×0 8و 5ل توجد سجلات للأنتقال إليها (" 


Rec = 0 


Exit Sub 

Else 

Call ViewRecord () 
End If 


End Sub 
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کی ا ا ا کی کا کا کی کی کی کی کی کی کی ا ا E‏ 


وا 
عملية الأضافة والتحديث 


الأضافة 


سأتحدث هنا بطريقتين لأتمام عملية الاضافة وهما 
[1] -استعمال خاصي Data Row‏ 


INSERT IN7Oمااaتا‎ ةlaج‎ Jامعتسا-[2[‎ 


DataRow 
لمن الفئة‎ ٥W حيث انها تمثل سجل كامل من سجلات الجدول ولن نستطيع التعامل معها بإنشاء كائن باستخدام‎ 
ان تعريف المتغير بهذه الطريقة الخاطئة لن يفيد في عملية التعامل مع الفنة‎ ىنعمب(طat2R۷‎ 
کود‎ 


Dim dRow As New DataRow 


وأنما يتم ذلك بطريقتين:_ 
- [1]بتعریف سطر جدید ()/ Raw‏ wم‌N‏ 
- [2]تعريف مصفوفة من النو ع)ء زا0 


ولن اشرح سوى طريقتين كما ذكرت سابقا وهما الأكثر استخداما في اعتقادي وايضا لكي لا تتشعب الامور 
بتفاصيل اكثر حيث اني احاول ان اركز على الامور الاكثر فائدة وتدول وكلن له طريقته 
اذا سنشرح 
الطريقة الأولى باستخدام New R2 W)(‏ التابعة للف Data Row‏ 


کود 
Dim dRow As DataRow = NameTabel .NewRow ()‏ 
ملاحظةَ امطج7٥۳‏ هل :_هو الجدول (مصدر البيانات ( 
وهذه هي شفرة عملية أضافة سجل بالفنة 5a2 RW‏ والخاصية New Raw()‏ 
کود 


EM : HnHn‏ Rكائن‏ للإضافة سطر جديد لمجموعة البيانات 


Dim dRow As DataRow 


EM1 : HnHn‏ Rاضافة‏ سطر جديد في الجدول لتخزين البيانات فيه 


dRow = rs.Tables ("HnHnEmp'" ) .NewRow () 


HnHn‏ : REMعملية‏ نقل البيانات من الحقول إلى حقول الجدول 


أما عن طريق تحديد اسماء الحقول التي في الجدول إو عن طريق الفهرسة 


REM : HnHn : dRow.Item ("LastName") = TextBox2. Text 
REM : HnHn : OR Index 
dRow.Item(1) = TextBox2. Text 


dRow. Item (2) TextBox3. Text 


dRow.Item(3) = TextBox4. Text 
dRow. Item (4) = TextBox5. Text 


dRow. Item (5) TextBox6. Text 


dRow. Item (6) TextBox7. Text 


الطريقةالثانية باستخدام 


INSERT INTO 
جمل ال ا5۵ هي احدى طرق عملية الاضافة وستكون شفرة الاضافة مسنودة إلى متغير من نوع كوماند‎ 
وقد قلنا سابقا أن هذه الفنة تؤدي مهمة تطبيق الاوامر على القاعدة وها نحن‎ 0e bC 0ommand 
نستخدمها الآن في تطبيق جملة ا54 من آجل عملية الأضافة حيث سنحتاج منها العنصر‎ 
.. الشفرة على سبيل المثال كما يلي‎ نوكتسو€0mmand‎ ext 


کود 
Rem HnHn‏ ' تعریف متغیر واسنادہ إلى کوماند لیقوم بعملية الحفظ لجملة الاضافة 


Dim SavInto As New OleDb. OleDbCommand 


HnHn : INSERT‏ REMجملة‏ الاضافة ب 
SavInto. CommandText = "INSERT INTO HnHnEmp (NameField)‏ 


values ('" & TextBoxl & "') " 


حيث = ۴٥1١‏ م" هل سنكتب بدلا عنه اسماء الحقول الموجودة في الجدول وتفصل بينهما الفاصلة 
(,)وسنكتب نظيرها من الحقول اللي على الفورم بنفس التسلسل ۲٥×8 0×2 , ۲٥×8 ٥×1‏ وهكذا ...مع 
مراعاة علامات التنصيص ' أذا كان الحقل في الجدول من نوع نص وبدون علامات تنصيص آذا كان نوع الحقل 
رقم وعلامة # اذا كان نوع الحقل تاريخ وبناء على المثال المرفق لديكم سنكتب الشفرة كما يلي ... 


كود 
Rem Hn‏ ' تعريف متغير واسناده إلى كوماند ليقوم بعملية الحفظ لجملة الاضافة 


Dim SavInto As New OleDb. OleDbCommand 


EM HnHn : INSERT‏ Rجملة‏ الاضافة ب 


SavInto.CommandText = "INSERT INTO HnHnEmp 

(LastName, FirstName, BirthDate, Address ,Mobail, Notes) values 
('" & TextBox2.Text & "','" & TextBox3.Text & "',#" & 
TextBox4.Text & "#,'" & TextBox5.Text &€ "'," & 


TextBox6.Text & ",'" & TextBox7.Text & "') " 


تحديث البيانات 
وهكذا عرضنا ثلاثة طرق لعملية الاضافة والموضوع لم ينتهي بعد حيث لابد من بعد عملية الإضافة تأتي عملية 
تحديث البيانات وهذا ما سنشرحه الآن مع كل طريقة من الطرق السابقة كيف سيتم تحديث البيانات فيها وسنبدا 


لے 


تحديث بيانات الطريقة الأولى R2W)(‏ سم : الخاصة بالففة Data RW‏ 


وستأتي عملية تحديث البيانات هنا بتعريف متغير من نوع الف Command Builder‏ الخاص 
بالعمليات التي تحدث على السجلات من جمل الاستعلام 5Q1‏ ثم يتم اسناد الكائن للمحول )م Daa Ada‏ 

ومن ثم فتح الجدول وأضافة سجل فيه مدرج في حقوله البيانات المسنده له ومن ثم اسناد السجل بحقوله 
للمحول في عملية تحديث للبيانات وتأتي الشفرة النهائية في هذه المرحلة من عملية الاضافة بهذه الطريقة كما 


0ھ 


کود 
Dim CmdB As New OleDb. OleDbCommandBui 1der (Dp)‏ 
EM : HnHn‏ Rكائن‏ للاضافة سطر جديد لمجموعة البيانات 


Dim dRow As DataRow 


EM : HnHn‏ Rاضافة‏ سطر جديد في الجدول لتخزين البيانات فيه 


dRow = rs.Tables ("HnHnEmp'" ) .NewRow () 


HnHn‏ : REMعملية‏ نقل البيانات من الحقول إلى حقول الجدول 


أما عن طريق تحديد اسماء الحقول التي في الجدول إو عن طريق الفهرسة 


REM : HnHn : dRow.Item ("LastName") = TextBox2. Text 


REM : HnHn : OR Index 


dRow.Item(1) = TextBox2. Text 
dRow. Item (2) = TextBox3. Text 
dRow.Item(3) = TextBox4. Text 
dRow. Item (4) = TextBox5. Text 
dRow. Item (5) = TextBox6. Text 


dRow. Item (6) = TextBox7. Text 


HnHn‏ REMاضافة‏ السجل للجدول 


rs.Tables ("HnHnEmp" ) .Rows. Add (dRow) 


HnHn‏ REMعملية‏ التحديث في قاعدة البيانات 
Dp. Update (rs, "HnHnEmp")‏ 
") ×0 8و تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح (" 


تحديث بيانات الطريقة الثاني INSERT INTO‏ ` 
وفي هذه المرحلة تتم عملية تحديث البيانات بالخطوات التالية 


- [1]تعريف المتغير من iوع‏ مر [OleDbCommand]‏ 
- [2]تحديد مسار الاتصال واسناده للمتغير 
- [3]تحديد نوع الامر وسيكون من نوع نص .. لأننا نحن من سيقوم بكتابة الاستعلام يدويا 
- [4]كتابة جملة الاستعلام لأضافة الحقول للجدول 
- [5]فتح الاتصال لأتمام العملية النهائية 
- [6]حصر السجلات التي ستتأثر بعملية الأضافة 
- [7]اغلاق الاتصال 


والشفرة ستكون كالتالي .... 


کود 
EM Hn‏ Rتعريف‏ متغير واسناده إلى كوماند ليقوم بعملية الحفظ لجملة الاضافة 


Dim SavInto As New OleDb. OleDbCommand 


REM HnHn‏ تحدید مسار الاتصال للمتغیر 


SavInto.Connection = Con 


EM HnHn‏ Rتحديد‏ نوع الأمر وسيكون من نوع نص لاننا سنقوم بكتابة الاستعلام يدوي 


SavInto. CommandType = CommandType . Text 


HnHn : INSERT‏ REMجملة‏ الاضافة ب 
SavInto. CommandText = "INSERT INTO‏ 


HnHnEmp (LastName, FirstName, BirthDate, Address, Mobail ,Notes) 


values ('" & TextBox2.Text & "','" & TextBox3.Text & "',#" 
& TextBox4.Text & "#,'" & TextBox5.Text & "'," & 
TextBox6.Text & ",'" & TextBox7.Text & "') " 


EM HnHn‏ Rفتح‏ الاتصال لعملية الاضافة 


Con. Open () 


EM HnHn‏ Rلحصر‏ عدد السجلات التي تأثرت بعملية الاضافة 


SavInto. ExecuteNonQuery () 


HnHn‏ REMاغلاق‏ الاتصال 


Con.Close () 


") ×0 8و تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح (" 
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